00100		DIMENSION Q(21),R(21)
00200		TYPE 20
00300		ACCEPT 21,N1
00400		TYPE 22
00500		ACCEPT 21,N2
00600		TYPE 23
00700		ACCEPT 21,N3
00800		CALL OFILE(1,N3)
00900		CALL IFILE(21,N1)
01000		CALL IFILE(22,N2)
01100		DO 1 K=1,4
01200		READ(21,2)Q
01300		WRITE(1,2)Q
01400	1	READ(22,2)Q
01500	C READS FIRST 4 LINES
01600		
01700		READ(21,4)L,N,P1,Q
01800		READ(22,4)L,M,PX,R
01900	6	IF(PX.LT.P1)GO TO 5
02000		WRITE(1,4)L,N,P1,Q
02100	45	READ(21,44)L,N,Q
02200		WRITE(1,44)L,N,Q
02300		IF(N.NE.'PRINT')GO TO 45
02400		READ(21,4)L,N,P1,Q
02410		IF(N.EQ.'FINIS')GO TO 10
02500		GO TO 6
02600	5	WRITE(1,4)J,M,PX,R
02700	46	READ(22,44)J,M,R
02800		WRITE(1,44)J,M,R
02900		IF(M.NE.'PRINT')GO TO 46
03000		READ(22,4)J,M,PX,R
03010		IF(M.EQ.'FINIS')GO TO 11
03100		GO TO 6
03200	
03300	10	IF(N.EQ.M)GO TO 12
03400		P1=10000
03500		GO TO 6
03600	11	IF(N.EQ.M)GO TO 12
03700		PX=10000
03800		GO TO 6
03900	12	WRITE(1,7)
04000		END FILE 1
04100	2	FORMAT(21A5)
04200	4	FORMAT(A1,A5,F,21A5)
04300	44	FORMAT(A1,22A5)
04400	7	FORMAT(' FINISH;')
04500	20	FORMAT(' TYPE NAME 1  '$)
04600	22	FORMAT(' TYPE NAME 2  '$)
04650	21	FORMAT(A5)
04700	23	FORMAT(' TYPE OUTPUT NAME  '$)
04800		END